home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / mus / midi / MusicXRexxMacs.lha / macros / chords / ELEVENTH FLAT NINTH.mxe next >
Text File  |  1997-02-05  |  1KB  |  66 lines
  1. /* © Dick Doyle */
  2.  
  3. options results                            
  4.  
  5.  
  6. MXRADIO "Selected Notes,All Notes"        
  7.  
  8.  
  9. MXREQUEST "ELEVENTH FLATTENED NINTH,DO IT" 
  10. if result == 0 then exit                        
  11.  
  12. MXPOINTER "sleepy"                        
  13.  
  14. MXVALUE 1                                
  15. if result == 0 then BEGINSCAN 'selected'
  16. else BEGINSCAN 'all'                    
  17.  
  18. if result ~= 0 then do forever            
  19.  
  20.   NEXTEVENT                                
  21.   if result == 0 then break
  22.  
  23.   if EVENT.TYPE == 'NOTE' then do        
  24.     newval = EVENT.NUM + 4
  25.     if newval < 0 then newval = newval + 128
  26.     if newval > 127 then newval = newval - 128
  27.     EVENT.NUM = newval
  28.     ADDEVENT
  29.   end
  30.   
  31.    if EVENT.TYPE == 'NOTE' then do        
  32.     newval = EVENT.NUM + 3
  33.     if newval < 0 then newval = newval + 128
  34.     if newval > 127 then newval = newval - 128
  35.     EVENT.NUM = newval
  36.     ADDEVENT
  37.   end
  38.   
  39.    if EVENT.TYPE == 'NOTE' then do        
  40.     newval = EVENT.NUM + 3
  41.     if newval < 0 then newval = newval + 128
  42.     if newval > 127 then newval = newval - 128
  43.     EVENT.NUM = newval
  44.     ADDEVENT
  45.   end
  46.  
  47.    if EVENT.TYPE == 'NOTE' then do        
  48.     newval = EVENT.NUM + 3
  49.     if newval < 0 then newval = newval + 128
  50.     if newval > 127 then newval = newval - 128
  51.     EVENT.NUM = newval
  52.     ADDEVENT
  53.   end
  54.  
  55.    if EVENT.TYPE == 'NOTE' then do        
  56.     newval = EVENT.NUM + 4
  57.     if newval < 0 then newval = newval + 128
  58.     if newval > 127 then newval = newval - 128
  59.     EVENT.NUM = newval
  60.     ADDEVENT
  61.   end
  62. end
  63. ENDSCAN                                    
  64.  
  65. MXPOINTER "normal"                        
  66. exit